home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 10 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  663b  |  28 lines
  1. 10 rem help-demo
  2. 20 :
  3. 30 sys32168
  4. 35 poke 650,128 :rem alle tasten repeat-funktion
  5. 40 :
  6. 50 rem anzahl und namen der help-seiten
  7. 60 n=3 :rem anzahl der help-seiten
  8. 70 dn$(0)="" :dn$(n+1)=""
  9. 80 for i=1 to n :dn$(i)="helpseite"+str$(i) :next
  10. 90 :
  11. 100 rem help-seiten anlegen und speichern
  12. 110 for i=1 to n
  13. 120 (NULL) 1,1,"geben sie den help-text"
  14. 130 (NULL) 3,"fuer seite"+str$(i)+" ein !!"
  15. 140 (NULL) 5,"ende der eingabe mit 'f3' !"
  16. 150 (NULL)1,10,10,24,39,1,0,dn$(i) :(NULL)1,(i+1)*2,128 :(NULL)1
  17. 160 printchr$(147)
  18. 170 (NULL)
  19. 180 (NULL) "@:"+dn$(i),dn$(i-1),dn$(i+1)
  20. 190 (NULL) :(NULL)1
  21. 200 next
  22. 210 :
  23. 220 rem fertig, help aktivieren
  24. 230 (NULL) dn$(1)
  25. 240 (NULL) 10,1,"help-funktion aktiviert,"
  26. 260 (NULL) 12,1,"aufruf mit 'f5' oder 'help'-befehl !"
  27. 270 end
  28.